﻿Imports System.Data.OracleClient
Public Class INGRESO_PEDIDO
    Dim VectorDeDatos(2) As TextBox
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        DETALLE_PEDIDO.Show()

    End Sub

    Private Sub INGRESO_PEDIDO_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim combo() As String = {"en proceso", "pendiente", "entregado"}
        cmb_estado.Items.AddRange(combo)

        VectorDeDatos = LlenarVector()
        BarraNavegacion1.Inicializar("Driver={Microsoft ODBC for Oracle};Server=xe;Uid=red;Pwd=red;", "VNT_ORDEN_VENTA", VectorDeDatos)
    End Sub
    Public Function LlenarVector() As TextBox()

        VectorDeDatos(0) = TXT_ID_PEDIDO
        VectorDeDatos(1) = TXT_FECHA
        VectorDeDatos(2) = TXT_ESTADO

        Return VectorDeDatos
    End Function

    Private Sub cmb_estado_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cmb_estado.TextChanged
        TXT_ESTADO.Text = cmb_estado.SelectedItem
    End Sub
End Class
